*&---------------------------------------------------------------------*
*& 包含               YBC_SWS_USER_MANAGE_TOP
*&---------------------------------------------------------------------*
TABLES: SSCRFIELDS,YBC_SWS_USER.
TYPES:
  BEGIN OF TY_USER_IMPORT,
    ICON     TYPE ICON_4,
    EXTUSID  TYPE YBC_SWS_USER-EXTUSID,
    NAME1    TYPE YBC_SWS_USER-NAME1,
    NAME2    TYPE YBC_SWS_USER-NAME2,
    NAME3    TYPE YBC_SWS_USER-NAME3,
    EMAIL    TYPE YBC_SWS_USER-EMAIL,
    TEL      TYPE YBC_SWS_USER-TEL,
    WECHAT   TYPE YBC_SWS_USER-WECHAT,
    PASSWORD TYPE  YBC_SWS_USER-PASSWORD,
    MESSAGE  TYPE BAPIRET2-MESSAGE,
  END OF TY_USER_IMPORT.

DATA:
  OK_CODE type sy-UCOMM,
  save_ok type sy-UCOMM,
  GS_RESULT      TYPE YBC_SWS_USER,
  GS_USER_IMPORT TYPE TY_USER_IMPORT,
  GT_RESULT      TYPE STANDARD TABLE OF YBC_SWS_USER,
  GT_USER_IMPORT TYPE STANDARD TABLE OF TY_USER_IMPORT,
  GR_TABLE       TYPE REF TO CL_SALV_TABLE.

CONSTANTS:
  GC_INITPWD     TYPE YBC_SWS_USER-PASSWORD VALUE '12345678',
  GC_TEMPLATE_NM TYPE TEXT50 VALUE 'UserImport'.

SELECTION-SCREEN FUNCTION KEY 1 .
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE TEXT-000.
  SELECTION-SCREEN BEGIN OF LINE .
    PARAMETERS P_MANAGE   RADIOBUTTON GROUP R1 DEFAULT 'X' USER-COMMAND UCOMM1.
    SELECTION-SCREEN COMMENT 3(30) FOR FIELD P_MANAGE.

    PARAMETERS P_IMPORT RADIOBUTTON GROUP R1 .
    SELECTION-SCREEN COMMENT 35(30) FOR FIELD P_IMPORT.
  SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B0.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
  PARAMETERS: P_FILE TYPE STRING MODIF ID M01.
  SELECT-OPTIONS:
    S_EXTID FOR YBC_SWS_USER-EXTUSID MODIF ID M02,
    S_SAPID FOR YBC_SWS_USER-SAPID MODIF ID M02,
    S_USERTY FOR YBC_SWS_USER-USERTY MODIF ID M02,
    S_EMAIL FOR YBC_SWS_USER-EMAIL MODIF ID M02,
    S_TEL FOR YBC_SWS_USER-TEL MODIF ID M02,
    S_WECHAT FOR YBC_SWS_USER-WECHAT MODIF ID M02,
    S_NAME1 FOR YBC_SWS_USER-NAME1 MODIF ID M02,
    S_NAME2 FOR YBC_SWS_USER-NAME2 MODIF ID M02,
    S_NAME3 FOR YBC_SWS_USER-NAME3 MODIF ID M02.
SELECTION-SCREEN END OF BLOCK B1.
